home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / PGM_TOOL / SMP_PT / KEYCODE.PAS < prev    next >
Pascal/Delphi Source File  |  1995-04-02  |  521b  |  28 lines
  1. {comments:
  2.  
  3.           Key codes are very important, they will help you read the extended
  4.           keys as well as alt and control key codes.
  5.  
  6. }
  7.  
  8. uses crt;
  9.  
  10. var ch, spec: char;
  11.  
  12. begin
  13.    clrscr;
  14.    repeat
  15.    writeln;
  16.    writeln('Press ESC to quit.');
  17.    writeln;
  18.    write('Press key to scan: ');
  19.    writeln;
  20.    ch := readkey;
  21.    write(ord(ch),' ');
  22.    if ch = #0 then begin
  23.       spec := readkey;
  24.       write(ord(spec));
  25.       {these are special (extended) keys}
  26.    end;
  27.    until ch = #27;
  28. end.